Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.3/Group1/Fytaktar.exe/0/RCDATA/TYFYTGORFORM/TYFYTGORFORM.txt

Text File | 1998-06-28 | 9KB | 311 lines

object YFytGorForm: TYFytGorForm
  Left = 60
  Top = 5
  Width = 513
  Height = 437
  ActiveControl = DBGrid1
  Caption = 'Yeni Fiyat Listesi'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 505
    Height = 410
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    Color = clPurple
    TabOrder = 0
    object Label1: TLabel
      Left = 66
      Top = 337
      Width = 36
      Height = 14
      Caption = 'Label1'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Label2: TLabel
      Left = 10
      Top = 336
      Width = 51
      Height = 14
      Caption = 'ARANAN :'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Label3: TLabel
      Left = 320
      Top = 343
      Width = 106
      Height = 14
      Caption = 'Yaz�c� Sol Marj (cm)'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object LabelIs: TLabel
      Left = 14
      Top = 351
      Width = 40
      Height = 14
      Caption = 'LabelIs'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 493
      Height = 328
      Align = alTop
      DataSource = DataSource1
      FixedColor = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clNavy
      TitleFont.Height = -11
      TitleFont.Name = 'Arial Tur'
      TitleFont.Style = [fsBold]
      OnKeyDown = DBGrid1KeyDown
      OnKeyPress = DBGrid1KeyPress
    end
    object BtnFont: TBitBtn
      Left = 272
      Top = 370
      Width = 95
      Height = 27
      Caption = 'Yaz�& Fontu'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BtnFontClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
        0000773777777733777703330033033330037FFF77F37F33377F700007330333
        3003777777337FFFF77F303003337000007337F77F3377777773303073333033
        003337F77F3337F377F337007333303300333777733337FF77F3330033333703
        07333377F333377F7733330733333300033333773FF3F3777F33333399393300
        033333337737FF777F333333339993307333333333777FF77333333333999930
        3333333333777737333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BtnYAZ: TBitBtn
      Left = 158
      Top = 370
      Width = 95
      Height = 27
      Caption = '&Yaz�c�'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BtnYAZClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 386
      Top = 370
      Width = 95
      Height = 27
      Caption = 'Kapat'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      Kind = bkClose
    end
    object SpinEdit1: TSpinEdit
      Left = 431
      Top = 339
      Width = 44
      Height = 23
      MaxLength = 25
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 0
    end
    object BitBtn1: TBitBtn
      Left = 17
      Top = 370
      Width = 122
      Height = 27
      Caption = '&Text Olarak Yaz'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = FiyAktarTab
    Left = 303
    Top = 85
  end
  object FiyAktarTab: TTable
    AfterInsert = FiyAktarTabAfterInsert
    AfterEdit = FiyAktarTabAfterInsert
    AfterPost = FiyAktarTabAfterPost
    OnPostError = FiyAktarTabPostError
    DatabaseName = 'ECZ'
    IndexFieldNames = 'ILACAD'
    TableName = 'Yenifyt.db'
    Left = 268
    Top = 85
    object FiyAktarTabILACAD: TStringField
      DisplayLabel = '�r�n Ad�'
      FieldName = 'ILACAD'
      ReadOnly = True
      Required = True
      Size = 36
    end
    object FiyAktarTabILACKOD: TStringField
      DisplayLabel = 'Bar Kodu'
      FieldName = 'ILACKOD'
      Size = 13
    end
    object FiyAktarTabFIYAT: TCurrencyField
      DisplayLabel = 'Yeni Fiyat'
      DisplayWidth = 16
      FieldName = 'FIYAT'
    end
    object FiyAktarTabFITARIH: TDateField
      Alignment = taRightJustify
      DisplayLabel = 'Fyt.Trh.'
      DisplayWidth = 8
      FieldName = 'FITARIH'
      DisplayFormat = 'dd/mm/yy'
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New Tur'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdFixedPitchOnly]
    Left = 256
    Top = 280
  end
  object PrintDialog1: TPrintDialog
    Left = 312
    Top = 280
  end
  object FontTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'FONT.DB'
    Left = 192
    Top = 272
    object FontTabBIRIM: TStringField
      FieldName = 'BIRIM'
      Size = 9
    end
    object FontTabFONTADI: TStringField
      FieldName = 'FONTADI'
      Size = 35
    end
    object FontTabFONTSIZE: TSmallintField
      FieldName = 'FONTSIZE'
    end
    object FontTabCOLOR: TIntegerField
      FieldName = 'COLOR'
    end
    object FontTabSTYLE: TStringField
      FieldName = 'STYLE'
      Size = 1
    end
    object FontTabMARJIN: TSmallintField
      FieldName = 'MARJIN'
    end
  end
  object Table1: TTable
    DatabaseName = 'ECZ'
    TableName = 'FIYATGOR'
    TableType = ttASCII
    Left = 272
    Top = 144
  end
  object BatchMove1: TBatchMove
    Destination = Table1
    Mappings.Strings = (
      'ILACAD=ILACAD'
      'FITARIH=FITARIH'
      'FIYAT=FIYAT')
    Mode = batCopy
    Source = FiyAktarTab
    Left = 272
    Top = 112
  end
end